home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / hf3.lha / DiskinVaihto.Amos / DiskinVaihto.amosSourceCode
AMOS Source Code  |  1993-03-08  |  661b  |  32 lines
  1. Load "HF3:DiskinVaihto3.Abk"
  2. Open In 1,"Hf3:HFlatauskuva diskinv.anim8"
  3. L=Frame Length(1,999)
  4. A=Frame Load(1 To 6,999)
  5. Screen Open 1,320,256,4096,Lowres
  6. Hide 
  7. B=Frame Play(6,1,1)
  8. Double Buffer 
  9.  
  10. Screen Open 2,320,50,8,Lowres : Cls 0 : Flash Off : Hide 
  11. Screen Display 2,,240,,
  12. Get Sprite Palette 
  13. Screen 1
  14.  
  15. Close 1
  16. Autoback 0
  17. Update Off 
  18.  
  19. Screen To Front 2
  20. While Not Exist("HF1:")
  21.    SEURAAVA=Frame Play(6,1)
  22.    If AB=0 Then Screen 2 : Bob 1,155,30,1 : Bob Update : AB=1 : Screen 1
  23.    For COUNTER=2 To A-1
  24.       SEURAAVA=Frame Play(SEURAAVA,1)
  25.       Screen Swap 
  26.       Wait Frame Param+3
  27.    Next COUNTER
  28. Wend 
  29. Sprite Off 
  30. Screen Close 1
  31. Screen Close 2
  32. Erase All